SuperModels in the Rainforest/SuperModels in the Rainforest.iso/rain.dxr/00006_C Handlers.ls

Text File | 1995-10-13 | 5.6 KB | 190 lines

on cGoOnRainForest
end

on cRollVideo aRate, aSprite
  set the movieRate of sprite aSprite to aRate
end

on cCheckRollover
  global gsRolled, gbVideoUp, gsRolled2
  if (gsRolled <> "Bright") and (rollOver(32) or rollOver(33) or rollOver(34)) then
    repeat with i = 20 to 24
      set the visible of sprite i to 1
    end repeat
    updateStage()
    set gsRolled to "Bright"
  else
    if (gsRolled <> "Dark") and not (rollOver(32) or rollOver(33) or rollOver(34)) then
      repeat with i = 20 to 24
        set the visible of sprite i to 0
      end repeat
      updateStage()
      set gsRolled to "Dark"
    end if
  end if
  if gbVideoUp then
    if rollOver(35) and (gsRolled2 <> "Bright") then
      set the visible of sprite 18 to 1
      repeat with i = 25 to 29
        set the visible of sprite i to 1
      end repeat
      updateStage()
      set gsRolled2 to "Bright"
    else
      if (gsRolled2 <> "Dark") and not rollOver(35) then
        set the visible of sprite 18 to 0
        repeat with i = 25 to 29
          set the visible of sprite i to 0
        end repeat
        updateStage()
        set gsRolled2 to "Dark"
      end if
    end if
  end if
end

on cCycleVideo
  global giVideoSprite, giRainForestIndex, gsRainMovieDir
  set giRainForest to 1
  set sTempFile to gsRainMovieDir & "rain" & giRainForestIndex
  set the visible of sprite giVideoSprite to 1
end

on cGoPhotoAlbum
  set the visible of sprite 2 to 0
  set the visible of sprite 3 to 0
  set the visible of sprite 4 to 0
  set the visible of sprite 31 to 0
  repeat with i = 5 to 15
    set the visible of sprite i to 0
  end repeat
  repeat with i = 1 to 4
    set the visible of sprite i to 1
  end repeat
  repeat with i = 16 to 31
    set the visible of sprite i to 1
  end repeat
end

on cNextShot aDirection
  global giShotIndex, giShotListIndex
  set iMaxShots to count(glShotList) / 2
  if aDirection = 1 then
    if (giShotIndex + 1) > iMaxShots then
      set giShotIndex to 1
      set giShotListIndex to 1
    else
      set giShotIndex to giShotIndex + 1
      set giShotListIndex to giShotListIndex + 2
    end if
  else
    if (giShotIndex - 1) < 1 then
      set giShotIndex to iMaxShots
      set giShotListIndex to (iMaxShots * 2) - 1
    else
      set giShotIndex to giShotIndex - 1
      set giShotListIndex to giShotListIndex - 2
    end if
  end if
  cDisplayShot()
end

on cNextShot2 aDirection
  global giShotIndex, giShotListIndex, iambig
  set iambig to 1
  set iMaxShots to count(glShotList) / 2
  if aDirection = 1 then
    if (giShotIndex + 1) > iMaxShots then
      set giShotIndex to 1
      set giShotListIndex to 1
    else
      set giShotIndex to giShotIndex + 1
      set giShotListIndex to giShotListIndex + 2
    end if
  else
    if (giShotIndex - 1) < 1 then
      set giShotIndex to iMaxShots
      set giShotListIndex to (iMaxShots * 2) - 1
    else
      set giShotIndex to giShotIndex - 1
      set giShotListIndex to giShotListIndex - 2
    end if
  end if
  cDisplayShot2()
end

on cDisplayShot2
  global giShotIndex, giShotListIndex, grOnScreenRect, grOffScreenRect, glShotList, giTempVid2Cast, giTempVidCast, giShotMov1, giShotMov2
  set iMovSprite1 to 2
  set iMovSprite2 to 3
  set sMovie to getAt(glShotList, giShotListIndex)
  set sMTime to getAt(glShotList, giShotListIndex + 1)
  set iOffStageSprite to (giShotIndex mod 2) + 2
  if sMovie = the fileName of cast giShotMov1 then
    set the movieTime of sprite iMovSprite1 to sMTime
    set tempSprite1 to iMovSprite1
    set tempSprite2 to iMovSprite2
  else
    if sMovie = the fileName of cast giShotMov2 then
      set the movieTime of sprite iMovSprite2 to sMTime
      set tempSprite1 to iMovSprite2
      set tempSprite2 to iMovSprite1
    else
      if iOffStageSprite = iMovSprite1 then
        set tempSprite2 to iMovSprite2
        set tempSprite1 to iMovSprite1
        set the fileName of cast giShotMov1 to sMovie
      else
        set tempSprite2 to iMovSprite1
        set tempSprite1 to iMovSprite2
        set the fileName of cast giShotMov2 to sMovie
      end if
    end if
  end if
  set the movieTime of sprite tempSprite1 to sMTime
  go(the frame + 1)
  go(the frame - 1)
  set the rect of sprite tempSprite2 to grOffScreenRect
  set the rect of sprite tempSprite1 to grOnScreenRect
  spriteBox(tempSprite1, 0, 0, 640, 480)
end

on cDisplayShot
  global giShotIndex, giShotListIndex, grOnScreenRect, grOffScreenRect, glShotList, giTempVid2Cast, giTempVidCast, giShotMov1, giShotMov2
  set iMovSprite1 to 2
  set iMovSprite2 to 3
  set sMovie to getAt(glShotList, giShotListIndex)
  set sMTime to getAt(glShotList, giShotListIndex + 1)
  set iOffStageSprite to (giShotIndex mod 2) + 2
  if sMovie = the fileName of cast giShotMov1 then
    set the movieTime of sprite iMovSprite1 to sMTime
    set tempSprite1 to iMovSprite1
    set tempSprite2 to iMovSprite2
  else
    if sMovie = the fileName of cast giShotMov2 then
      set the movieTime of sprite iMovSprite2 to sMTime
      set tempSprite1 to iMovSprite2
      set tempSprite2 to iMovSprite1
    else
      if iOffStageSprite = iMovSprite1 then
        set tempSprite2 to iMovSprite2
        set tempSprite1 to iMovSprite1
        set the fileName of cast giShotMov1 to sMovie
      else
        set tempSprite2 to iMovSprite1
        set tempSprite1 to iMovSprite2
        set the fileName of cast giShotMov2 to sMovie
      end if
    end if
  end if
  set the movieTime of sprite tempSprite1 to sMTime
  go(the frame + 1)
  go(the frame - 1)
  if (the frame > 106) and (the frame < 110) then
    nothing()
  else
    set the rect of sprite tempSprite2 to grOffScreenRect
    set the rect of sprite tempSprite1 to grOnScreenRect
  end if
end